input sunfont1base  
proofing:=1;		% this will make a "GF" output file
			% so you can get hardcopy proofs and/or run "bits"
% pausing:=1;		% So that I can see where it goes wrong
% tracingequations:=1;	% To see if everything is properly defined

vardef char.C =
	setwidth .7em;		% do this first; it sets the character width
	pos1(thickwidth,180);
	pos2(thickwidth,165);
	pos3(thinwidth,90);
	pos4(thinwidth,65);
	pos5(.7thickwidth,0); 
	pos6(thickwidth,0);
	pos7(thickwidth,15);
	pos8(thinwidth,90);
	pos9(thinwidth,110);
	pos10(.7thickwidth,180);
	z1=(.15w+.5thickwidth,.5capheight); dz1=(0,1);
	z2=(.22w+.5thickwidth,.83capheight);  
	z3=(.56w,capheight);  dz3=(1,0);
	z4=(.650[x3,x5],.300[y3,y5]);
	z5=(.83w,.8capheight); dz5=(1,-2);
	z6=(.15w+.5thickwidth,.5capheight); dz6=(0,-1);
	z7=(.22w+.5thickwidth,.17capheight);  
	z8=(.56w,0); dz8=(1,0);
	z9=(.650[x8,x10],.300[y8,y10]);
	z10=(.83w,.2capheight);

	curve(1,2,3); curve(3,4,5);
	curve(6,7,8); curve(8,9,10);
	labelpos(1,2,3,4,5,6,7,8,9,10); 
enddef;

test.normal(char.C);	% this will display my C, with "normal" parameters
test.bold(char.C);	% and this will display it with "bold" parameters
test.boldx(char.C);	% and bold extended

test(char.C);		% this shows all three C's, but only half size

end